МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА” ІКТА кафедра „ЗАХИСТ ІНФОРМАЦІЇ” ЗВІТ до лабораторної роботи №2 б) З КУРСУ “АЛГОРИТМІЧНІ МОВИ І ПРОГРАМУВАННЯ” на тему: „Програми з розгалуженими та циклічними алгоритмами” Варіант № 12 Виконав: студент групи ІБ – 1 Львів - 2006 2. ПОВНИЙ ТЕКСТ ЗАВДАННЯ Скласти блок-схемy алгоритмy та програмy мовою Турбо-Паскаль для табулювання функції, представленої рядом: 
при a = 1; b=2; h=0.1; d=0.001; на інтервалі [a, b] з кроком табуляції h та абсолютною похибкою d. Оцінку похибки здійснювати за значенням модуля чергового члена ряду. Забезпечити ввід значень інтервалу, кроку табулювання та похибки з клавіатури і вивід результатів на дисплей. 3. ОСТАТОЧНА ВЕРСІЯ БЛОК-СХЕМИ АЛГОРИТМУ 4. СПИСОК ІДЕНТИФІКАТОРІВ КОНСТАНТ, ЗМІННИХ, ПРОЦЕДУР І ФУНКЦІЙ, ВИКОРИСТАНИХ У ПРОГРАМІ, ТА ЇХ ПОЯСНЕННЯ a, b, h, d, y, sum – змінні типу real для зберігання введених даних та результату роботи; k – змінна типу integer; clrscr – процедура очистки екрана яка об’явлена в модулі crt; writeln – процедура виведення текстових повідомлень і значень змінних на екран; readln – процедура яка зчитує дані з клавіатури та присвоює відповідне значення змінній або очікує натискання клавіші Enter; exp(x) – функція яка обчислює експоненту числа; ln(x) – функція для обчислення натурального логарифму числа x; cos(x) – функція знаходження косинуса кута x заданого в радіанах; abs(x) – функція яка повертає значення модуля змінної x. mod – операція для знаходження остачі від ділення. 5. ОСТАТОЧНА ВЕРСІЯ ПРОГРАМИ program lab3; uses crt; var a,b,h,d,y,sum:real; k:integer; begin clrscr; writeln('Vvedit interval [a,b], krok [h] ta pohubky [d]'); write('a = '); readln(a); write('b = '); readln(b); write('h = '); readln(h); write('d = '); readln(d); writeln; while (a<=b+h/2) do begin sum:=0; k:=1; repeat y:=exp(4*ln(abs(cos(exp(k*ln(2))*a))))/exp(2*k*ln(2)); if (k mod 2 =1) then y:=-y; k:=k+1; sum:=sum+y; until (abs(y)<d); writeln('x = ',a:3:1,' sum = ',sum:2:4, ' y = ',abs(y):2:6); a:=a+h; end; readln; end. 6. РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ Vvedit interval [a,b], krok [h] ta pohubky [d]: a = 1 b = 2 h = 0.1 d = 0.001 x = 1.0 sum = 0.0039 y = 0.00000700281 x = 1.1 sum = -0.0294 y = 0.00055759140 x = 1.2 sum = -0.0739 y = 0.00000366347 x = 1.3 sum = -0.1332 y = 0.00007368013 x = 1.4 sum = -0.1745 y = 0.00002653663 x = 1.5 sum = -0.1948 y = 0.00012646103 x = 1.6 sum = -0.1991 y = 0.00012174461 x = 1.7 sum = -0.1836 y = 0.00020107042 x = 1.8 sum = -0.1532 y = 0.00007120208 x = 1.9 sum = -0.0976 y = 0.00024909921 x = 2.0 sum = -0.0456 y = 0.00002801124